home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD028A.D64 / intro select.exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  32 lines
  1. 0 DV=PEEK(186):IFDV<8 THEN DV=8
  2. 1 Q=0:GOSUB100
  3. 2 GETK$:IFK$=""THEN2
  4. 3 IFVAL(K$)<1 OR VAL(K$)>3 THEN 2
  5. 4 PRINT"[147][146]"SPC(14)"[206]OW [204]OADING!"
  6. 5 Q=1:GOSUB115
  7. 6 POKE53247,VAL(K$)+48
  8. 7 PRINT"LOAD"CHR$(34)"SOUTH PARK 2.EXE"CHR$(34)","DV
  9. 8 PRINT"RUN"
  10. 9 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
  11. 99 END
  12. 100 PRINT"[147]";:POKE53280,1:POKE53281,1
  13. 105 POKE53265,PEEK(53265)AND191:POKE53270,PEEK(53270)AND239
  14. 110 POKE53272,(PEEK(53272)AND240)OR6
  15. 115 PRINTSPC(13)"[176][174][176][174][176][178][174][176]``[174]":PRINTSPC(7)"[176]`[178]`[178][178][179][173][179][173][174][176]`[178]`[178]`[179]}}[171]`";
  16. 120 PRINT"}":PRINTSPC(7)"}`[179]}}}[176][179]}}[171]`}[171][179]}}}"
  17. 125 PRINTSPC(7)"}}}}}}}}}}}}}}}[179]}}":PRINTSPC(7)"[171]`}}}}}}}}}}}}}}";
  18. 130 PRINT"}}`[179]":PRINTSPC(7)"[173]`[177]`[177]`[177][189][173][177][189]}[176][177]`[177][189][173][177][189][173]``[189]"
  19. 135 PRINTSPC(19)"[173][189]":IFQ=1THEN RETURN
  20. 136 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  21. 140 PRINT"}[146]<<iNTROsELECTOR>>}";
  22. 145 PRINT"[171]``````````````````````````````````````[179]";:PRINT"}[146]1.sOUTHpARK2";
  23. 150 PRINT"-anEWrUDENESS}";:PRINT"}[146]";
  24. 155 PRINT"}";:PRINT"}[146]2.sOUTHpARK2-tHEnEXTgENERATION}";
  25. 160 PRINT"}[146]}";
  26. 165 PRINT"}[146]3.sOUTHpARK2-fULLmETALhAMBURGER}";
  27. 170 PRINT"}[146]hILLpLATOON}";
  28. 175 PRINT"[171]``````````````````````````````````````[179]";:PRINT"}[146]pRESSKEYS1";
  29. 180 PRINT"-3TOCHOOSEINTRO}";:PRINT"[173]```````````````````````````````";
  30. 185 PRINT"```````[189]";
  31. 190 RETURN
  32.